object fcadImp: TfcadImp
  Left = 387
  Top = 201
  Width = 570
  Height = 395
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object pgc1: TPageControl
    Left = 0
    Top = 0
    Width = 554
    Height = 357
    ActivePage = ts1
    Align = alClient
    TabOrder = 0
    object ts1: TTabSheet
      Caption = 'I.R.R.F'
      object grp1: TGroupBox
        Left = 0
        Top = 0
        Width = 546
        Height = 41
        Align = alTop
        TabOrder = 0
        object lbl1: TLabel
          Left = 8
          Top = 16
          Width = 52
          Height = 13
          Caption = 'Referencia'
        end
        object edtRef: TEdit
          Left = 74
          Top = 13
          Width = 107
          Height = 21
          TabOrder = 0
        end
      end
      object grp2: TGroupBox
        Left = 1
        Top = 43
        Width = 185
        Height = 105
        Caption = 'Configura'#231#227'o de Pagamento'
        TabOrder = 1
        object lbl4: TLabel
          Left = 40
          Top = 24
          Width = 88
          Height = 13
          Caption = 'Dia do Pagamento'
        end
        object edtDiaPgto: TEdit
          Left = 41
          Top = 39
          Width = 107
          Height = 21
          TabOrder = 0
        end
      end
      object grp4: TGroupBox
        Left = 193
        Top = 43
        Width = 352
        Height = 214
        Caption = 'Faixas I.R.R.F'
        TabOrder = 2
        object JvDBGrid1: TJvDBGrid
          Left = 2
          Top = 15
          Width = 348
          Height = 197
          Align = alClient
          DataSource = ds4
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          AutoSizeColumns = True
          SelectColumnsDialogStrings.Caption = 'Select columns'
          SelectColumnsDialogStrings.OK = '&OK'
          SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
          EditControls = <>
          RowsHeight = 17
          TitleRowHeight = 17
          Columns = <
            item
              Expanded = False
              FieldName = 'FAIXA'
              Title.Caption = 'Faixa'
              Width = 82
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'ALIQUOTA'
              Title.Caption = 'Aliquota'
              Width = 82
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'VALOR_BASE'
              Title.Caption = 'Valor Base'
              Width = 82
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'DEDUCAO'
              Title.Caption = 'Dedu'#231#227'o'
              Width = 82
              Visible = True
            end>
        end
      end
      object grp5: TGroupBox
        Left = 0
        Top = 256
        Width = 546
        Height = 73
        Align = alBottom
        TabOrder = 3
        object lbl2: TLabel
          Left = 264
          Top = 16
          Width = 130
          Height = 13
          Caption = 'Dedu'#231#227'o p'#244'r Dependente :'
        end
        object lbl3: TLabel
          Left = 295
          Top = 43
          Width = 99
          Height = 13
          Caption = 'Valor para reten'#231#227'o :'
        end
        object edtDeducao: TEdit
          Left = 426
          Top = 13
          Width = 107
          Height = 21
          TabOrder = 0
        end
        object edtRetencao: TEdit
          Left = 426
          Top = 40
          Width = 107
          Height = 21
          TabOrder = 1
        end
      end
      object rgFer: TRadioGroup
        Left = 2
        Top = 152
        Width = 185
        Height = 105
        Caption = 'Feriados e Fins de Semana'
        Items.Strings = (
          'N'#227'o tratar'
          'Dia '#218'til Anterior'
          'Dia '#218'til Posterior')
        TabOrder = 4
      end
    end
  end
  object sImp: TSQLDataSet
    CommandText = 
      'select udf_PadL(CAST(MES as varchar(2)), '#39'0'#39', 2) || '#39'/'#39' || CAST(' +
      'ANO as varchar(4)) as ANO_MES'#13#10'         , DESCRICAO'#13#10'         , ' +
      'PRAZO'#13#10'         , FERIADO'#13#10'         , ID_IMPOSTO'#13#10'         , DED' +
      'UCAO'#13#10'         , MES'#13#10'         , ANO'#13#10'         , VALOR_RETENCAO'#13 +
      #10'from IMPOSTO'#13#10'where ID_IMPOSTO =:id'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
      end>
    SQLConnection = DM.scSge
    Left = 296
    Top = 232
    object sImpID_IMPOSTO: TIntegerField
      FieldName = 'ID_IMPOSTO'
      Required = True
    end
    object sImpDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 60
    end
    object sImpPRAZO: TIntegerField
      FieldName = 'PRAZO'
      Required = True
    end
    object sImpFERIADO: TIntegerField
      FieldName = 'FERIADO'
      Required = True
    end
    object sImpDEDUCAO: TFloatField
      FieldName = 'DEDUCAO'
    end
    object sImpVALOR_RETENCAO: TFloatField
      FieldName = 'VALOR_RETENCAO'
    end
    object sImpMES: TIntegerField
      FieldName = 'MES'
    end
    object sImpANO: TIntegerField
      FieldName = 'ANO'
    end
    object sImpANO_MES: TStringField
      FieldName = 'ANO_MES'
      ReadOnly = True
      Size = 259
    end
  end
  object dImp: TDataSetProvider
    DataSet = sImp
    UpdateMode = upWhereKeyOnly
    Left = 328
    Top = 232
  end
  object dsImp: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
      end>
    ProviderName = 'dImp'
    Left = 360
    Top = 232
    object dsImpID_IMPOSTO: TIntegerField
      FieldName = 'ID_IMPOSTO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object dsImpDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 60
    end
    object dsImpPRAZO: TIntegerField
      FieldName = 'PRAZO'
      Required = True
    end
    object dsImpFERIADO: TIntegerField
      FieldName = 'FERIADO'
      Required = True
    end
    object dsImpDEDUCAO: TFloatField
      FieldName = 'DEDUCAO'
    end
    object dsImpVALOR_RETENCAO: TFloatField
      FieldName = 'VALOR_RETENCAO'
    end
    object dsImpMES: TIntegerField
      FieldName = 'MES'
    end
    object dsImpANO: TIntegerField
      FieldName = 'ANO'
    end
    object dsImpANO_MES: TStringField
      FieldName = 'ANO_MES'
      ReadOnly = True
      Size = 259
    end
  end
  object dsrcImp: TDataSource
    DataSet = dsImp
    Left = 392
    Top = 232
  end
  object ds4: TDataSource
    DataSet = dsImpFilho
    Left = 392
    Top = 264
  end
  object dsImpFilho: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
      end>
    ProviderName = 'dImpFilho'
    Left = 360
    Top = 264
    object dsImpFilhoID_IMPFILHO: TIntegerField
      FieldName = 'ID_IMPFILHO'
      Required = True
    end
    object dsImpFilhoID_IMPOSTO: TIntegerField
      FieldName = 'ID_IMPOSTO'
      Required = True
    end
    object dsImpFilhoFAIXA: TIntegerField
      FieldName = 'FAIXA'
    end
    object dsImpFilhoVALOR_BASE: TFloatField
      FieldName = 'VALOR_BASE'
    end
    object dsImpFilhoALIQUOTA: TFloatField
      FieldName = 'ALIQUOTA'
    end
    object dsImpFilhoDEDUCAO: TFloatField
      FieldName = 'DEDUCAO'
    end
  end
  object dImpFilho: TDataSetProvider
    DataSet = sImpFilho
    Left = 328
    Top = 264
  end
  object sImpFilho: TSQLDataSet
    CommandText = 'select * from IMPOSTO_FILHO'#13#10'where ID_IMPOSTO =:id'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
      end>
    SQLConnection = DM.scSge
    Left = 296
    Top = 264
    object sImpFilhoID_IMPFILHO: TIntegerField
      FieldName = 'ID_IMPFILHO'
      Required = True
    end
    object sImpFilhoID_IMPOSTO: TIntegerField
      FieldName = 'ID_IMPOSTO'
      Required = True
    end
    object sImpFilhoFAIXA: TIntegerField
      FieldName = 'FAIXA'
    end
    object sImpFilhoVALOR_BASE: TFloatField
      FieldName = 'VALOR_BASE'
    end
    object sImpFilhoALIQUOTA: TFloatField
      FieldName = 'ALIQUOTA'
    end
    object sImpFilhoDEDUCAO: TFloatField
      FieldName = 'DEDUCAO'
    end
  end
end
